home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zf.d64 / txt.xcomal text < prev    next >
Text File  |  2007-03-01  |  4KB  |  153 lines
  1. ┼╪╘┼╬─┼─ ├╧═┴╠-80 VS 0.14
  2.  
  3. BY ─ICK ╦LINGENS, ─UTCH ├╧═┴╠ ╒SERS
  4. ╟ROUP
  5.  
  6. ╘HE BOOT PROGRAM FOR ├╧═┴╠-80 VERSION
  7. 0.14 CAN BE USED TO CHANGE ├╧═┴╠
  8. ITSELF. ╫E DID SO BECAUSE WE FOUND
  9. THAT 0.14 HAS SOME INCONFORTABLE
  10. LACKS, SUCH AS SLOW LOADING, ERROR
  11. MESSAGES FROM DISK, NO USE OF
  12. FUNCTION KEYS.
  13.  
  14. ╫E DID NOT CHANGE THE ├╧═┴╠ SOURCE
  15. ITSELF, BECAUSE IT IS COPYRIGHTED AND
  16. IT MUST STAY COMPATIBLE.
  17.  
  18. ╘HE BOOT PROGRAM IS DEVELOPED IN FIVE
  19. STEPS, BOOTM.01 (OUR FIRST, JANUARY
  20. 85) TO BOOTM.05 (OUR LATEST, NOVEMBER
  21. 85). ╔N THE LAST VERSION WE INCLUDE
  22. SOME FACILITIES EMULATING THOSE IN
  23. THE CARTRIDGE. ╘HE 'M' STANDS FOR
  24. 'ERRORS IN MEMORY'.
  25.  
  26. ┬╧╧╘═ MAKES THE FOLLOWING POSSIBLE:
  27.  
  28. - LOAD AND RUN A TURBO LOADER FOR THE
  29.   1541 DRIVE (WITH A CHECK IF THERE
  30.   IS 'TURBO' ON DISK). ╙EE NOTE.
  31. - LOAD AND RUN 'COMAL.14' (WE RENAMED
  32.   'CBM COMAL 0.14' TO SAVE MEMORY
  33.   SPACE).
  34. - LOAD THE ERROR MESSAGES FROM DISK
  35.   INTO THE HIGHEST PART OF THE SPRITE
  36.   AREA (INCLUDING A CHECK IF THERE IS
  37.   A FILE 'COMALERRORS' ON DISK)
  38. - A SHORT BEEP WHEN AN ERROR OCCURS.
  39. - NO QUOTE AND INSERT MODE AT ├╧═┴╠
  40.   STARTUP.
  41. - ├╚╥$(27)+├╚╥$(X) PRINTS THE ERROR
  42.   MESSAGES WITH NUMBER X.
  43. - ├╚╥$(7) 'PRINTS' A BEEP.
  44. - CTRL+┴ REMOVES INDENTION IN A LINE
  45.   WHICH EXTENDS OVER MORE THEN ONE
  46.   SCREEN LINE.
  47. - CTRL+╦ DELETES ALL CHARACTERS FROM
  48.   THE CURSOR POSITION TO THE END OF
  49.   THE LINE.
  50. - CTRL+╒ MOVES THE CURSOR UP TO THE
  51.   START OF THE LINE.
  52. - CTRL+╠ MOVES THE CURSOR TO THE LAST
  53.   CHARACTER ON THE LINE.
  54. - CTRL+╓ SETS UP COLORS ON THE
  55.   TEXTSCREEN: BORDER 6, BACKGROUND 6,
  56.   PENCLOR 1.
  57. - CTRL+╫ SETS UP BORDER 11,
  58.   BACKGROUND 15, PENCOLOR 0 ON THE
  59.   TEXTSCREEN.
  60.  
  61. ╫E ALSO HIDED SOME TEXT UNDER THE
  62. FUNCTION KEYS TO USE THESE IN COMMAND
  63. MODE.
  64.  
  65.   F1 -            (UNCHANGED)
  66.   F2 - ╨┴╙╙ "I"
  67.   F3 -            (UNCHANGED)
  68.   F4 - ┴╒╘╧
  69.   F5 -            (UNCHANGED)
  70.   F6 - ╠╔╙╘
  71.   F7 - ╥╒╬ (+ ""13"")
  72.   F8 - ╥┼╬╒═ (+ ""13"")
  73. SHIFT+╥╒╬/╙╘╧╨ - ├╚┴╔╬ "*" (+""13"")
  74.  
  75. ┬ECAUSE THE ERROR MESSAGES OCCUPY A
  76. PART OF THE SPRITE AREA ONLY SPRITE
  77. IMAGES 0-11 CAN BE USED NOW.
  78.  
  79. ┴DDRESS 2048 ($0800) IS A FLAG FOR
  80. THE MESSAGE SOURCE (0: MEMORY;
  81. 1: DISK).
  82.  
  83. ╘HE VALUE IS AFFECTED BY ANSWERING
  84. THE QUESTION
  85.  
  86.  '┼RROR MESSAGES IN MEMORY' 
  87.  
  88. BY ┘(ES OR ╬(O ON THE WELCOME SCREEN.
  89. ╘HIS SCREEN OVERWRITES THE ORIGINAL
  90. ╒╙┴ WELCOME SCREEN (WE DID NOT EVEN
  91. CHANGE THIS PART OF THE ├╧═┴╠
  92. SOURCE).
  93.  
  94. ╘HE ROUTINE FOR LOADING THE MESSAGES
  95. IS PLACED FROM 51500 ($C95E), SO WITH
  96. ╙┘╙ 51500 IT IS POSSIBLE TO RELOAD
  97. THE MESSAGES, UNLESS THE CODE IS
  98. OVERWRITTEN BY SPRITE INFORMATION.
  99.  
  100. ╘HE TEXTS USED FOR THE FUNCTION KEYS
  101. ARE STORED FROM $C544 IN 9 PARTS OF
  102. 10 CHARACTERS.
  103.  
  104. ╧N ─AVID ╙TIDOLPH'S REQUEST WE
  105. DEVELOPED SOME PROCEDURES FOR EASY
  106. CHANGE OF THE FUNCTION TEXTS: ╨╥╧├
  107. DEFKEY AND ╨╥╧├ NORMAL'KEYS. ╘HESE
  108. PROCEDURES ARE FOUND IN THE FILE
  109. 'FKEYS.PRC' ON DISK.
  110.  
  111. ╔N THIS FILE ONE CAN FIND ALSO THE
  112. FOLLOWING PROCEDURES, PARTIALLY
  113. ILLUSTRATING WHAT IS WRITTEN ABOVE
  114.  
  115.  
  116.   PROC BELL(NUM) CLOSED
  117.      IF NUM<0 OR NUM>255 THEN
  118.        ERRTEXT(3)
  119.      ENDIF
  120.      FOR T#=1 TO N DO
  121.        PRINT CHR$(7),
  122.      ENDFOR T#
  123.    ENDPROC BELL
  124.    //
  125.    PROC ERRTEXT(NUM) CLOSED
  126.      IF NUM<0 OR NUM>255 THEN
  127.        ERRTEXT(3)
  128.      ENDIF
  129.      BELL(1)
  130.      PRINT CHR$(27)+CHR$(NUM)
  131.      STOP
  132.    ENDPROC ERRTEXT
  133.  
  134. ╔N THE FILE 'BEEP.PRC' ONE CAN FIND
  135. THE PROCEDURES SETBEEP AND
  136. NORMAL'BEEP WHICH SETS AND RESETS THE
  137. ╙╔─ VALUES FOR THE ERROR BEEP.
  138.  
  139. ╔N THIS COLUMN ╔ WOULD LIKE TO
  140. MENTION THE NAME OF THE PROGRAMMER,
  141. ═ARCEL ┬OKHORST, BECAUSE HE CODED THE
  142. BOOT PROGRAM ALL BY HAND USING A
  143. MONITOR PROGRAM. ╚E LACKED OF A GOOD
  144. ASSEMBLER AT THE TIME OF DEVELOPEMENT
  145. START.
  146.  
  147. ╬╧╘┼.
  148.  
  149. ╘HE TURBO PROGRAM CAN NOT BE USED IN
  150. THE ╒╙┴ BECAUSE OF SYNCHRONISATION
  151. PROBLEMS. ╞OR THIS REASON IT HAS NOT
  152. BEEN INCLUDED ON THE DISK.
  153.